home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 80 / 64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64 / dokfonts disk 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.2 KB  |  39 lines
  1. 1 poke53280,0:poke53281,0
  2. 2 printchr$(14)"[147]"tab(15)"[194]amdok 18"tab(97)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
  3. 3 print"[194]itte defekte [198]onts 4 von 4 [211]eite 2"tab(80)"in das [204]aufwerk legen"
  4. 4 print"und eine [212]aste druecken":wait203,64,64:open1,8,15,"i":open2,8,2,"#"
  5. 5 print#1,"u1:"2;0;17;9:print#1,"b-p"2;118:get#2,a$:a=asc(a$+chr$(0))
  6. 6 ifa<>1thenprint"[147]nicht auf dieser [196]isk anwendbar!":close2:close1:end
  7. 7 readn:ifn<0then9
  8. 8 print#1,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto7
  9. 9 on abs(n) goto10,11,14
  10. 10 read lb:goto 7
  11. 11 if si=1 thenprint#1,"u2:";2;0;t;s
  12. 12 read t: read s
  13. 13 print#1,"u1:";2;0;t;s:si=1:goto7
  14. 14 print#1,"u2:";2;0;t;s:print#1,"i"
  15. 15 close2:close1:print"[198]onts 4 von 4 [211]eite 2 nun wieder"tab(80)"verwendbar!"
  16. 16 data-2,18,0,-1,0,18,1,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  17. 17 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,237,189,29,21,255,255,31,21,255,255
  18. 18 data31,21,255,255,31,21,255,255,31,21,255,255,31,21,255,255,31,16,252,253
  19. 19 data7,18,255,254,7,19,255,255,7,19,255,255,7,19,255,255,7,19,255,255,7
  20. 20 data19,255,255,7,18,255,255,3,18,255,255,3,18,255,255,3,18,255,255,3,18,255
  21. 21 data255,3,18,255,255,3,17,255,255,1,17,255,255,1,17,255,255,1,17,255,255
  22. 22 data1,17,255,255,1,70,79,78,84,83,58,32,52,32,118,111,110,32,52,160,160
  23. 23 data160,160,68,66,48,50,56,160,160,160,160,19,8,71,69,79,83,32,102,111
  24. 24 data114,109,97,116,32,86,49,46,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  25. 25 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  26. 26 data0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0,18,9,195,1,16,84,101,103,101,97
  27. 27 data116,101,115,160,160,160,160,160,160,160,160,1,8,1,8,88,7,6,15,49,44
  28. 28 data0,0,0,195,3,3,84,101,107,116,97,109,111,115,160,160,160,160,160,160
  29. 29 data160,160,3,16,1,8,88,7,6,15,46,11,0,0,0,195,3,4,84,101,108,101,112,104
  30. 30 data111,115,160,160,160,160,160,160,160,160,3,17,1,8,88,7,6,0,0,24,0,0,0
  31. 31 data195,4,6,84,101,117,116,97,109,105,100,101,115,160,160,160,160,160,160
  32. 32 data4,19,1,8,88,7,6,0,0,21,0,0,0,195,5,11,84,104,101,114,115,97,110,100
  33. 33 data114,111,115,160,160,160,160,160,5,3,1,8,88,7,6,0,0,20,0,0,0,195,6,11
  34. 34 data84,104,114,97,115,105,111,115,160,160,160,160,160,160,160,160,6,3,1
  35. 35 data8,88,7,6,0,0,16,0,0,0,195,7,11,84,114,105,98,97,108,108,111,115,160
  36. 36 data160,160,160,160,160,160,7,3,1,8,88,7,6,16,15,25,0,0,0,195,8,16,86,105
  37. 37 data114,98,105,111,115,160,160,160,160,160,160,160,160,160,8,6,1,8,88,7
  38. 38 data6,16,15,23,0,-3
  39.